Top 10k strings from Free Sample Programs (1982)(Richard Francis Altwasser)(16k).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /
Back to the directory listing
2 NROT=DAY-20
2 NROT1=NROT-1
2 ;" BIORHYTHMS "
1 title page
1 sumotuwethfrsa
1 sub to set up board
1 sub to remove androids a=row, b= no. to be removed
1 sub to point androids in right direction
1 sub to determine safe or unsafe (c=0)
1 set up arrays
1 plot 2 week period
1 january february march april may june july august septemberoctober november december
1 input y m d
1 hhiijjkklllmmnnoooppqqqrrrssstttuuuuvvvvvwwwwwwwxxxxxxxxxxxxxxxxxwwwwwwwvvvvvuuuutttsssrrrqqqppooonnmmlllkkjjiihhhggffeedddccbbaaa``___^^^]]]\\\[[[[ZZZZZYYYYYYYXXXXXXXXXXXXXXXXXYYYYYYYZZZZZ[[[[\\\]]]^^^___``aaabbccdddeeffgghh
1 explanation page
1 display graphs
1 de>n(me)-13
1 d$(co);" industry affected"'"by import duty ";:
1 c(n)=(c(n)
1 c$(n),d$(n):
1 c$(co);" chairman predicts":
1 a(y,m);" followed by enter");
1 a(a)=a(a)-b
1 TRADE SHARES
1 STOCK
1 Q+Q(CO)>999
1 Q*P(CO,NROT)>CSH
1 Q(CO)=Q(CO)+Q
1 PRINT TABLE
1 PLOT 2 MONTH PERIOD
1 P(N,NROT)>340
1 P(N,NROT)=P(N,NROT1)+
1 P(N,NROT)=P(N,NROT)+DE*(5
1 P(N,NROT)=340
1 P(N,NROT)=20
1 P(N,NROT)<20
1 NROT=DAY1-20
1 NROT1=NROT+1
1 NIM 7
1 NEW PRICE TRENDS AND PREDICTIONS
1 GENERAL PREDICTIONS
1 E(N)=E(N)+DE
1 DAY1=DAY-21
1 D(N)=D(N)-1
1 Created with Ramsoft MakeTZX
1 CSH=CSH-Q*P(CO,NROT)
1 CN=(P(N,NROT)-P(N,NROT1))*(DAY
1 CHANGE PRICES
1 BIORHYTHMS
1 @@AABBBCCCDDEEEFFFGGGHHHIIIJJJJKKKLLLLMMMMMNNNNNOOOOOOOOPPPPPPPPPPPPPPPPPPPPPOOOOOOOONNNNNMMMMMLLLLKKKJJJJIIIHHHGGGFFFEEEDDCCCBBBAA@@@??>>>===<<;;;:::9998887776666555444433333222221111111100000000000000000000011111111222223333344445556666777888999:::;;;<<===>>>??@@
1 ;n-m1*(n>m1)
1 ;Q(N)*P(N,NROT)
1 ;P(N,NROT);
1 ;("YOU ONLY HAVE ";Q(CO);" SHARES"'"TO SELL, TRY AGAIN ");Q:
1 ;("Type the day of the month 1-";n(m)+
1 ;"YOUR MOVE ":
1 ;"YOU WIN ":
1 ;"YOU TO START ":
1 ;"YOU MAY ONLY HOLD 999 SHARES OF"'"ANY STOCK, TRY AGAIN ";Q:
1 ;"YOU CAN'T AFFORD IT. TRY AGAIN ";Q:
1 ;"Which row will you attack ? Typea number followed by enter. ";
1 ;"Type the month as a number 1-12 followed by enter ";
1 ;"Type in your choice of period A or B followed by enter ";
1 ;"Type in the year as 4 digits followed by enter ";
1 ;"STOCK PRICE CHANGE QTY VALUE"
1 ;"SPECTRUM'S MOVE ":
1 ;"SPECTRUM TO START ":
1 ;"SPECTRUM IS THE WINNER ":
1 ;"Press enter to play again";
1 ;"PHYSICAL";
1 ;"INTELLECTUAL"
1 ;"How many will you remove ? Type a number followed by enter.";
1 ;"HOW MANY ";C$(CO);" SHARES DO YOU"'"WISH TO BUY OR SELL ."'"ENTER A +ve NUMBER TO BUY OR "'"-ve TO SELL ."
1 ;"EMOTIONAL";
1 ;"CASH IN HAND ";CSH
1 ;"Biorhythms may be displayed for any date"
1 ;"1=another display date 2=anotherbirth date followed by enter ";
1 ;"1-5= BUY OR SELL SHARES";
1 ;"1-5 DISPLAY A GRAPH";
1 ;" TABLE OF STOCKS HELD "
1 ;" SHARE PRICE MOVEMENTS ";C$(CO)'D$(CO)
1 ;" DISPLAY PRICE GRAPHS "
1 ;" BIORHYTHMS ";
1 ;" BIORHYTHMS ":
1 ;" You take turns at removing any number of androids from one of six rows "
1 ;" The Winner removes the last Android "
1 ;" Nim is a game for two, your partner is the spectrum. "
1 ;" Biorhythms are calculated from the date of birth"
1 ;" ANDROID NIM ":
1 ;" ANDROID NIM "''
1 ,-(P(CO,N)-P(CO,N+1
1 ,(P(CO,NROT1)-P(CO,NROT))/2.5
1 +P(CO,NROT)/2.5
1 +P(CO,N)/2.5
1 *n+d-n(m)*(de+7
1 *(q+p+m+n):
1 *(q+m+n+p):
1 *(dn-dn1)+n/2
1 *(dn-dn1)+2
1 )))+m(m)+d-1
1 (P(N,NROT)-180
1 ''"These cycles have periods of 23 days, 28 days and 33 days respectively"
1 ''"The cycles start at birth and continue to death, and our abilities in the three fields of human behaviour rise and fallsinusoidally"
1 ''"Biorhythms may be displayed for a choice of period"'"A= 2weeks"'"B= 2months"
1 ''"Biorhythms are the cyclic variations in our performance and abilities physically, emotionally and intellectually"
1 ''"1= M&S"'"2= GKN"'"3= BR"'"4= ICL"'"5= BL"'
1 '"6= SHOW STOCK TABLE"
1 '"6= NO FURTHER TRADING"
1 '"1= M&S"'"2= GKN"'"3= BR"'"4= ICL"'"5= BL"'
1 "wins award"'"for efficiency":
1 "su","mo","tu","we","th","fr","sa":
1 "redundant":
1 "reduction":
1 "planned":
1 "named in "'"fraud case":
1 "more profitable":
1 "more layoffs":
1 "january","february","march","april","may","june","july","august","september","october","november","december":
1 "increase":
1 "higher profits":
1 "averted":
1 "World trade conference predicts"'d$(co);" ";:
1 "Trade secretary announces major"'"deals with Arab states":
1 "Tory popularity grows as"'"unemployment falls":
1 "TUC talk of general strike soon":
1 "Senior ";c$(co);" manager ";:
1 "Scientists announce discovery"'"that could make ";d$(co)'" industry ";:
1 "Press enter to play again";
1 "Press any key to play":
1 "Press Enter ";
1 "PRESS ENTER";
1 "PRESS ENTER TO CONTINUE ";
1 "PRESS ENTER
1 "New trade links with China":
1 "Major ";d$(co);" industry"'"strike ";:
1 "M&S","Minerals","GKN","Catering","BR","Electronics","ICL","Transport","BL","Textiles"
1 "Labour party win key by-election":
1 "Interest rates rise by 3/4 %":
1 "Government announce new "'d$(co);:
1 "Employment secretary predicts"'"gloomy future":
1 "ENTER A NUMBER 1-6 ";
1 "Chancellor promises less tax":
1 "CBI chairman has little hope for"'"industrial growth":
1 """Fall in interest rates soon"" "'"says Treasury spokesman":
1 " subsidy":